|
CATIA V5 Programmierung : Filename des aktiven Parts
Erich am 25.04.2015 um 15:16 Uhr (1)
Halloin einem Produkt befinden sich mehrere Parts. In jedem Part gibt es einen Parameter mit zwei Werten. IF STEUERN =="Einstellen"{ `RelationsVB Scripts.1Netz_Aus`.Run() `RelationsVB Scripts.1Einstellungen_Ein`.Run() }IF STEUERN =="Verwenden"{ `RelationsVB Scripts.1Netz_Ein`.Run() `RelationsVB Scripts.1Einstellungen_Aus`.Run()}Je nachdem welcher der beiden Werte des Parameters ausgewählt wurde, starte ich im Part ein befindliches Script.Da das Script immer ausgehend vom Part in einem Produkt in einem Fens ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Parent vollständig finden
Erich am 11.04.2022 um 17:11 Uhr (1)
Halloich habe folgdendes Programm gefunden und würde es gerne erweitern. Das Problem ist Parent und Chuildren Funktionalität.Programm:Sub catmain() Set part1 = CATIA.ActiveDocument.Part Set objekt = part1.FindObjectByName("OT_01_primär_1") Set Parameter = part1.Parameter Link = Parameter.GetNameToUseInRelation(objekt) Msgbox LinkEnd SubAls Ergebnis erhalte ich nur einen Teil des Pfads. (Bild)------------------mfgErich[Diese Nachricht wurde von Erich am 11. Apr. 2022 editiert.][Diese Nachrich ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parent vollständig finden
Erich am 12.04.2022 um 15:55 Uhr (1)
HalloDer Vollständigkeit halber -Sub catmain()Set part1 = CATIA.ActiveDocument.PartDim Parameter As ParameterSet Parameter = part1.ParametersDim Selection1 As SelectionSet Selection1 = CATIA.ActiveDocument.SelectionSelection1.Search "Name=OT_01_primär_1,all"Dim oHybridShapeAffinity As AnyObjectohybridShapeAffinity = CATIAHybridShapeFactory Dim oRef As AnyObjectDim i As IntegerFor i=1 to Selection1.count Set oHybridShapeAffinity = Selection1.Item(i).value Set oRef = ohybridShapeAffinity.ElemToTransfor ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameterset umbenennen
Erich am 27.01.2012 um 12:56 Uhr (0)
Halloin der V5R19 finde ich unterschiedliche Parametersets im Produkt in diversen Parts verschachtelt oder unverschachtelt. Diese möchte ich umbenennen. D.h. den kompletten Namen auslesen und mit einem neuen Namen überschreiben.Im Forum habe ich mir hierzu Anleihen für Parameter zum umbenennen bereits erfolgreich geholt, nur bei den Sets fehlt mir die Syntax zur Parameter Sets zum Umbenennen.Mit der Bitte um Unterstützung. Danke.------------------mfgErich
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Top Produkt Paramter auslesen
Erich am 29.04.2022 um 10:42 Uhr (15)
Hallo Zusammenmit folgendem Code bekomme ich nicht den Inhalt des Parameters "Status" im TOP-Produkt. Warum?Ich erwarte vom Top-Produkt den Parameter-Inhalt bekomme aber vom zweiten den Inhalt.Sub Catmain()Msgbox CATIA.ActiveDocument.Product.Parameters.Item("Status").ValueAsStringEnd Sub------------------mfgErich
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Top Produkt Paramter auslesen
Erich am 29.04.2022 um 10:57 Uhr (1)
Hallo Berndvielen Dank für deinen Code, er funktioniert sehr komisch und unrichtig.Ich bekomme eine Fehler-Meldung "The methdod item failed" und er legt ein Parametersetan mit dem Material-Parameter und dem Inhalt "Steel" den es gibt aber er sollte Statusauslesen.------------------mfgErich
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkte messen
Erich am 10.11.2008 um 07:56 Uhr (0)
Hallozunächst einmal meinen Dank für die Überlegungen. Um das noch etwas besser zu verdeutlichen - Es sind 3D-Punkte, die über ein NC-Programm auf einer Freiformfläche erzeugt wurden. D.h. mit 2D-Überlegungen komme ich hier nicht weiter. Das Berechnen über den 3D-Pytagoras ist bereits Teil meiner Überlegung. D.h. in Fräsrichtung, die gleich die Ausgabereihenfolge für das Einlesen in Catia vorgibt, ist dies schon integriert. Meine Frage bezieht sich darauf wie kann ich die eingelesenen Punkte, gerne als Scr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkte messen
Erich am 10.11.2008 um 07:57 Uhr (0)
Hallozunächst einmal meinen Dank für die Überlegungen. Um das noch etwas besser zu verdeutlichen - Es sind 3D-Punkte, die über ein NC-Programm auf einer Freiformfläche erzeugt wurden. D.h. mit 2D-Überlegungen komme ich hier nicht weiter. Das Berechnen über den 3D-Pytagoras ist bereits Teil meiner Überlegung. D.h. in Fräsrichtung, die gleich die Ausgabereihenfolge für das Einlesen in Catia vorgibt, ist dies schon integriert. Meine Frage bezieht sich darauf wie kann ich die eingelesenen Punkte, gerne als Scr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parallele Kurve
Erich am 29.04.2006 um 22:49 Uhr (0)
Hallo ich möchte aus einer projezierten eckigen Kurve auf einer Ebene, eine parallele Kurve nach aussen erzeugen. Diese Kurve soll zusätzlich mit dem Round-Parameter analog dem Offset-Wert verrundet werden.Ich komme per Makro-Recorder nicht an die Stelle, an der ich den Round-Paramter hinterlegen kann. Wer kennt in? Bitte Info. Danke.------------------mfgErich
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameterset umbenennen
Erich am 29.01.2012 um 12:26 Uhr (0)
Hallofolgende funktionierende Code-Zeilen habe ich gefunden:-------------------------------------------------------Sub CATMain()Set ProductDoc = CATIA.ActiveDocumentSet Product = ProductDoc.PartSet RootParameterSet = Product.Parameters.RootParameterSetSet ParameterSets = RootParameterSet.ParameterSetsSet ModelElement = ParameterSets.GetItem("_Material_and_Weight").GetItem("ModelElement")ModelElement.DisplayName = "Material_and_Weight"End Sub-------------------------------------------------------Hiermit pas ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ghostscript zur PDF Erzeugung
Erich am 21.06.2024 um 16:56 Uhr (1)
Hallo Berndso sieht der Rest des Scriptes aus falls das hilft, wo ich hin möchte -Sub CATMain()Dim oDrawingDoc As DocumentSet oDrawingDoc = CATIA.ActiveDocumentsOutputFile = "C: emp est.pdf"A = CATIA.SystemService.ExecuteBackgroundProcessus("...Toolsgsgs9.52ingswin64.exe -o PDFFILE.pdf -sDEVICE=pdfwrite -dCompatibilityLevel=1.6 -sOutputFile")End Sub------------------mfgErich
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PartNumber
Erich am 29.03.2005 um 22:29 Uhr (0)
Hallo danke für die Anwort. Mein Code: Dim documents1 As Documents Set documents1 = CATIA.Documents Dim partDocument1 As PartDocument Set partDocument1 = Catia.ActiveDocument Dim product1 As Product Set product1 = partDocument1.GetItem( PART1 ) product1.PartNumber = EingabeName Auf EingabeName wird beim Aufruf des Makros der gewünschte Name abgefragt. (EingabeName nicht Partname)
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Update als Batch-Job
Erich am 02.06.2012 um 14:53 Uhr (0)
Hallo Berndich habe meine BAT überarbeitet bzw. getestet, mit folgendem Inhalt:C:PrgV5R19intel_acodeinCNEXT.exe -batch -macro "C:Part-Update.CATscipt"Das Script sieht wie folgt aus:Language="VBSCRIPT"Sub CATMain()Dim documents1 As DocumentsSet documents1 = CATIA.DocumentsDim partDocument1 As DocumentSet partDocument1 = documents1.Open("C:BDT.CATPart")Dim part1 As PartSet part1 = partDocument1.PartSet partDocument1 = CATIA.ActiveDocumentpart1.Update partDocument1.Save End SubRufe ich dieses Makro interakti ...
|
| In das Form CATIA V5 Programmierung wechseln |
